home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / s / startup-sequence1.3 < prev    next >
Text File  |  1995-03-28  |  1KB  |  39 lines
  1.     cdpd2:1.3/c/assign c: cdpd2:1.3/c
  2.     c:assign sys: cdpd2:1.3
  3.     c:assign l: cdpd2:1.3/l
  4.     c:assign libs: cdpd2:1.3/libs
  5.     c:Assign fonts: cdpd2:1.3/fonts
  6.     c:assign devs: cdpd2:1.3/devs
  7.     c:assign s: cdpd2:1.3/s
  8.     resident >NIL: CLI cdpd2:1.3/L/Shell-Seg SYSTEM PURE add
  9.     resident >NIL: cdpd2:1.3/c/Execute PURE
  10.     c:mount NEWCON: from cdpd2:1.3/devs/mountlist
  11.  
  12. c:failat 100
  13. c:SetPatch >NIL: ;patch system functions
  14. c:cd c:
  15. c:echo "CDTV Workbench disk.  Release 1.3.3 version 34.34*N"
  16. Sys:System/FastMemFirst ; move C00000 memory to last in list
  17. c:BindDrivers
  18. c:SetClock load ;load system time from real time clock (A1000 owners should
  19.               ;replace the SetClock load with Date
  20. ;resident CLI L:Shell-Seg SYSTEM pure add; activate Shell
  21. ;resident c:Execute pure
  22. ;mount newcon:
  23. ;
  24. ;failat 11
  25. c:run execute s:StartupII ;This lets resident be used for rest of script
  26. c:wait >NIL: 5 mins ;wait for StartupII to complete (will signal when done)
  27. ;
  28. ;cdpd2:CDSetMap
  29. c:path ram: c: sys:utilities sys:system s: sys:prefs add ;set path for Workbench
  30.  
  31. assign >NIL: CDPD-Custom: exists
  32. if not warn
  33.     execute CDPD-Custom:s/CD-Environment
  34. endif
  35.  
  36. c:LoadWB delay  ;wait for inhibit to end before continuing
  37.  
  38. c:endcli >NIL:
  39.